home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 143 (1990-08-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 143 (1990-08-15)(Ossowski, Stefan)(DE)(PD).adf / SASTools / BigCLI / BigCLI.mod < prev    next >
Text File  |  1990-05-16  |  1KB  |  36 lines
  1. (***************************************************************************
  2. *  Programme : BigCLI.mod                                                  *
  3. *  Usage     : BigCLI                                                      *
  4. *  Version   : V1.20                                                       *
  5. *  Date      : 01.05.1989                                                  *
  6. *  Author    : Jörg Sixt                                                   *
  7. *  Purpose   : Set height & width of the active (CLI-)window to maximum    *
  8. *  Language  : Modula-2,AMSoft  PD-Version from Fish 113                   *
  9. *  Bugs      :                                                             *
  10. ***************************************************************************)
  11.  
  12. MODULE BigCLI ;
  13.  
  14. FROM Intuition IMPORT OpenIntuition,IntuitionBase,SizeWindow,MoveWindow,
  15.                       ScreenPtr,WindowPtr ;
  16.  
  17. VAR  IntBasePtr : POINTER TO IntuitionBase ;
  18.      CLIWinPtr  : WindowPtr ;
  19.      WBScrnPtr  : ScreenPtr ;
  20.  
  21. BEGIN
  22.      IntBasePtr := OpenIntuition ();
  23.      CLIWinPtr  := IntBasePtr^.activeWindow;
  24.      WBScrnPtr  := IntBasePtr^.activeScreen;
  25.  
  26.      IF (CLIWinPtr # NIL) THEN
  27.         MoveWindow ( CLIWinPtr,
  28.                    -(CLIWinPtr^.leftEdge),
  29.                    -(CLIWinPtr^.topEdge ));
  30.  
  31.         SizeWindow ( CLIWinPtr,
  32.                     (WBScrnPtr^.width  - CLIWinPtr^.width),
  33.                     (WBScrnPtr^.height - CLIWinPtr^.height));
  34.   END ;
  35. END BigCLI .
  36.